home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
B-Book Series
/
(k)b5.d64
/
choices.l
< prev
next >
Wrap
Text File
|
2007-02-28
|
431b
|
20 lines
9000 //
9010 PROC CHOICES(TEXT$) CLOSED
9020 //HIGHLIGHT THE FIRST LETTER IN
9030 //EACH WORD
9040 // CHR$(18) IS REVERSE ON
9050 // CHR$(146) IS REVERSE OFF
9060 PRINT CHR$(18),
9070 MARK:=0; MAX:=LEN(TEXT$)
9080 WHILE MARK<MAX DO
9090 MARK:+1
9100 IF TEXT$(MARK)=" " THEN // SPACE
9110 PRINT CHR$(146)," ",CHR$(18),
9120 ELSE
9130 PRINT TEXT$(MARK),CHR$(146),
9140 ENDIF
9150 ENDWHILE
9160 PRINT
9170 ENDPROC CHOICES
9180 //